]ND

}executeonly

ifelse

ifelse}

{dup /strtlck known{/strtlck get exec}{pop 3}ifelse}

{/startlock get exec}

dup /startlock known

{1183615869 systemdict /internaldict get exec

{pop 3}

{systemdict /internaldict known not

{currentpoint grestore gsave currentpoint newpath moveto}executeonly

{gsave currentpoint newpath moveto}executeonly

}if

ifelse executeonly

{{1183615869 userdict /internaldict get exec /FlxProc get exec}}

{{1183615869 systemdict /internaldict get exec /FlxProc get exec}}

{systemdict /internaldict known

ifelse

ifelse}

ifelse}

{1183615869 systemdict /internaldict get exec exch /FlxProc exch put true}

{false}

{1183615869 systemdict /internaldict get exec dup length exch maxlength eq

{1183615869 userdict /internaldict get exec exch /FlxProc exch put true}

{systemdict /internaldict known not

{pop true exch restore}

/exec cvx /end cvx]cvx executeonly exch

systemdict /currentpacking known{exch setpacking}if

epY epX}

ifelse

{x0 y0 x1 y1 x2 y2 curveto x3 y3 x4 y4 x5 y5 curveto}

{x5 y5 lineto}

x2 x5 eq y2 y5 eq or

}ifelse}ifelse

/x3 x3 eShift add def}if

x2 sub /eShift exch def /x1 x1 eShift add def /x2 x2 eShift add def

erode{/ex ex .5 add def}if ex cy flipXY -1 eq{exch}if itransform pop

/ex cx dX add def /ex ex ceiling ex sub ex floor add def

/erode PaintType 2 ne erosion .5 ge and def erode{/cx cx .5 sub def}if

dX round dup 0 ne{/dX exdef}{pop dX 0 lt{-1}{1}ifelse /dX exdef}ifelse

/dX x2 c1x2 sub round 0 dtransform flipXY -1 eq{exch}if pop def

c1x2 c1y2 transform flipXY -1 eq{exch}if /cy exch def /cx exch def

dX dmin lt PickCoords x2 c1x2 sub abs 0.001 gt{

/dX c3x2 c1x2 sub round 0 dtransform flipXY -1 eq{exch}if pop abs def

/c1y0 c3y0 def /c1y1 c3y1 def /c2y0 c4y0 def /c2y1 c4y1 def

/c2x0 c4x0 xshrink def /c2x1 c4x1 xshrink def

/c1x0 c3x0 xshrink def /c1x1 c3x1 xshrink def

/xshrink{c4x2 sub shrink mul c4x2 add}def

{/shrink c3x2 c4x2 eq{0}{c1x2 c4x2 sub c3x2 c4x2 sub div abs}ifelse def

{false PickCoords}

{flipXY 0 eq c3x2 c4x2 eq or

}ifelse}

/y3 y3 eShift add def}if

y2 sub /eShift exch def /y1 y1 eShift add def /y2 y2 eShift add def

erode{/ey ey 0.5 add def}if ey cx flipXY 1 eq{exch}if itransform exch pop

/ey cy dY add def /ey ey ceiling ey sub ey floor add def

/erode PaintType 2 ne erosion 0.5 ge and def erode{/cy cy 0.5 sub def}if

dY round dup 0 ne{/dY exdef}{pop dY 0 lt{-1}{1}ifelse /dY exdef}ifelse

/dY 0 y2 c1y2 sub round dtransform flipXY 1 eq{exch}if pop def

c1x2 c1y2 transform flipXY 1 eq{exch}if /cx exch def /cy exch def

dY dmin lt PickCoords y2 c1y2 sub abs 0.001 gt{

/dY 0 c3y2 c1y2 sub round dtransform flipXY 1 eq{exch}if pop abs def

/c1x0 c3x0 def /c1x1 c3x1 def /c2x0 c4x0 def /c2x1 c4x1 def

/c2y0 c4y0 yshrink def /c2y1 c4y1 yshrink def

/c1y0 c3y0 yshrink def /c1y1 c3y1 yshrink def

/yshrink{c4y2 sub shrink mul c4y2 add}def

{/shrink c3y2 c4y2 eq{0}{c1y2 c4y2 sub c3y2 c4y2 sub div abs}ifelse def

{false PickCoords}

{flipXY 0 eq c3y2 c4y2 eq or

yflag

/erosion known{/erosion get /erosion exch def}{pop}ifelse}if

{1183615869 systemdict /internaldict get exec dup

systemdict /internaldict known

/erosion 1 def

{/flipXY 1 def}{/flipXY 0 def}ifelse}ifelse

{mtx 1 get abs .00001 lt mtx 2 get abs .00001 lt or

{/flipXY -1 def}

mtx currentmatrix pop mtx 0 get abs .00001 lt mtx 3 get abs .00001 lt or

}def

/y2 exdef /x2 exdef /y1 exdef /x1 exdef /y0 exdef /x0 exdef

/y5 exdef /x5 exdef /y4 exdef /x4 exdef /y3 exdef /x3 exdef

ifelse

{c3x0 c3y0 c3x1 c3y1 c3x2 c3y2 c4x0 c4y0 c4x1 c4y1 c4x2 c4y2}

{c1x0 c1y0 c1x1 c1y1 c1x2 c1y2 c2x0 c2y0 c2x1 c2y1 c2x2 c2y2}

/PickCoords{

/yflag c1y2 c3y2 sub abs c1x2 c3x2 sub abs gt def

/c1y2 exdef /c1x2 exdef /c2x2 c4x2 def /c2y2 c4y2 def

/c3y2 exdef /c3x2 exdef /c3y1 exdef /c3x1 exdef /c3y0 exdef /c3x0 exdef

/c4y2 exdef /c4x2 exdef /c4y1 exdef /c4x1 exdef /c4y0 exdef /c4x0 exdef

/epX exdef /epY exdef

/dmin exch abs 100 div def

/exdef{exch def}def

grestore

1183615869 systemdict /internaldict get exec /$FlxDict get begin}if

/$FlxDict currentdict put end}if

1183615869 systemdict /internaldict get exec

/$FlxDict known not{100 dict begin /mtx matrix def

{systemdict /internaldict known{1183615869 systemdict /internaldict get exec

systemdict /currentpacking known{currentpacking true setpacking}if

[systemdict /internaldict known not{100 dict /begin cvx /mtx matrix /def cvx}if

/FlxProc known {save true}{false}ifelse}ifelse

1183615869 userdict /internaldict get exec

dup 14 get 1 25 dict put bind executeonly put}if

dup 1183615869 eq{pop 0}{/internaldict errordict /invalidaccess get exec}ifelse}

dup type /integertype ne{/internaldict errordict /invalidaccess get exec}if

{count 0 eq {/internaldict errordict /invalidaccess get exec}if

{userdict /internaldict known not{userdict /internaldict

{1183615869 systemdict /internaldict get exec/FlxProc known{save true}{false}ifelse}

[systemdict /internaldict known

/OtherSubrs

%.that their outline data has not come from an Adobe typeface.

%.Used in Fontographer with permission, provided users confirm

%.This code to be used for Flex and hint replacement.

%.All rights reserved.

%.Copyright (c) 1987 Adobe Systems Incorporated.